data <- d2
ITT_S2_wate <- itt('waterboarding.followup', 
                   'torture.baseline', data, B)
ITT_S2_clos <- itt('guantanamo.followup', 
                    'torture.baseline', data, B)
ITT_S2_trus <- itt('trust.followup', 'trust.baseline', data, B)
ITT_S2_appr <- itt('approval.followup', 'approval.baseline', data, B)
ITT_S2_vint <- itt('vote.followup', 'vote.baseline', data, B)
ITT_S2_actv <- itt('vote.november', 'vote.baseline', data, B)
